home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Kick Pascal v2.10 d1.adf / INCLUDE / MathIeeeDoubBas.lib < prev    next >
Text File  |  2018-01-27  |  686b  |  19 lines
  1. {$if not def MATHIEEEDOUBBAS_LIB}
  2. Const MATHIEEEDOUBBAS_LIB=4711;
  3. Var MathIeeeDoubBasBase: Ptr;
  4. Library MathIeeeDoubBasBase:
  5. -30: Function IEEEDPFix(d0:Double):Long;
  6. -36: Function IEEEDPFlt(d0:Long):Double;
  7. -42: Function IEEEDPCmp(d0:Double,d2:Double):integer;
  8. -48: Function IEEEDPTst(d0:Double):integer;
  9. -56: Function IEEEDPAbs(d0:Double):Double;
  10. -60: Function IEEEDPNeg(d0:Double):Double;
  11. -66: Function IEEEDPAdd(d0,d2:Double):LongReal;
  12. -72: Function IEEEDPSub(d0,d2:Double):LongReal;
  13. -78: Function IEEEDPMul(d0,d2:Double):LongReal;
  14. -84: Function IEEEDPDiv(d0,d2:Double):LongReal;
  15. -90: Function IEEEDPFloor(d0:Double):Double;
  16. -96: Function IEEEDPCeil(d0:Double):Double;
  17. End;
  18. {$endif}
  19.